home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 September / CHIP Eylül 1998.iso / demolar / lokman / DISK1 / _SETUP.4 / Group1 / Demo8E.exe / 0 / RCDATA / TSIPAKTARFORM / TSIPAKTARFORM.txt
Text File  |  1998-07-30  |  11KB  |  372 lines
  1. object SipAktarForm: TSipAktarForm
  2.   Left = -3
  3.   Top = 46
  4.   Width = 644
  5.   Height = 344
  6.   ActiveControl = DBGrid1
  7.   Caption = 'S∩┐╜PAR∩┐╜∩┐╜ L∩┐╜STES∩┐╜N∩┐╜    ALI∩┐╜ L∩┐╜STES∩┐╜NE   AKTARMA'
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   KeyPreview = True
  13.   Position = poScreenCenter
  14.   OnClose = FormClose
  15.   OnKeyDown = FormKeyDown
  16.   OnShow = FormShow
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object Panel2: TPanel
  20.     Left = 0
  21.     Top = 0
  22.     Width = 636
  23.     Height = 317
  24.     HelpContext = 116
  25.     Align = alClient
  26.     BevelInner = bvLowered
  27.     BorderWidth = 1
  28.     Caption = 'Panel2'
  29.     Color = 8421440
  30.     Font.Color = clBlack
  31.     Font.Height = -11
  32.     Font.Name = 'Arial'
  33.     Font.Style = [fsBold]
  34.     ParentFont = False
  35.     TabOrder = 0
  36.     object Label1: TLabel
  37.       Left = 12
  38.       Top = 259
  39.       Width = 39
  40.       Height = 14
  41.       Caption = 'Aranan'
  42.       Font.Color = clWhite
  43.       Font.Height = -11
  44.       Font.Name = 'Arial'
  45.       Font.Style = [fsBold]
  46.       ParentFont = False
  47.       Visible = False
  48.     end
  49.     object Label2: TLabel
  50.       Left = 55
  51.       Top = 259
  52.       Width = 6
  53.       Height = 14
  54.       Caption = '_'
  55.       Font.Color = clWhite
  56.       Font.Height = -11
  57.       Font.Name = 'Arial'
  58.       Font.Style = [fsBold]
  59.       ParentFont = False
  60.       Visible = False
  61.     end
  62.     object LabelEdit: TLabel
  63.       Left = 519
  64.       Top = 259
  65.       Width = 107
  66.       Height = 14
  67.       Caption = 'ESC De∩┐╜i∩┐╜iklik ∩┐╜ptali'
  68.       Font.Color = clWhite
  69.       Font.Height = -11
  70.       Font.Name = 'Arial'
  71.       Font.Style = [fsBold]
  72.       ParentFont = False
  73.       Visible = False
  74.     end
  75.     object SpeedBtnAkSil: TSpeedButton
  76.       Left = 8
  77.       Top = 283
  78.       Width = 231
  79.       Height = 27
  80.       Hint = 'Al∩┐╜∩┐╜a Aktar∩┐╜lmayanlar D∩┐╜∩┐╜∩┐╜ndakini Sil'
  81.       Caption = 'Al∩┐╜∩┐╜a Aktar∩┐╜lmayanlar D∩┐╜∩┐╜∩┐╜ndakileri Sil'
  82.       Glyph.Data = {
  83.         76010000424D7601000000000000760000002800000020000000100000000100
  84.         04000000000000010000130B0000130B00000000000000000000000000000000
  85.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  86.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  87.         333333333333333333FF33333333333330003333333333333777333333333333
  88.         300033FFFFFF3333377739999993333333333777777F3333333F399999933333
  89.         3300377777733333337733333333333333003333333333333377333333333333
  90.         3333333333333333333F333333333333330033333F33333333773333C3333333
  91.         330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
  92.         993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
  93.         333333377F33333333FF3333C333333330003333733333333777333333333333
  94.         3000333333333333377733333333333333333333333333333333}
  95.       NumGlyphs = 2
  96.       ParentShowHint = False
  97.       ShowHint = True
  98.       OnClick = SpeedBtnAkSilClick
  99.     end
  100.     object DBGrid1: TDBGrid
  101.       Left = 3
  102.       Top = 3
  103.       Width = 630
  104.       Height = 253
  105.       Align = alTop
  106.       DataSource = DataSource1
  107.       Font.Color = clBlack
  108.       Font.Height = -11
  109.       Font.Name = 'Arial'
  110.       Font.Style = [fsBold]
  111.       Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
  112.       ParentFont = False
  113.       TabOrder = 0
  114.       TitleFont.Color = clBlue
  115.       TitleFont.Height = -11
  116.       TitleFont.Name = 'Arial'
  117.       TitleFont.Style = [fsBold]
  118.       OnKeyDown = DBGrid1KeyDown
  119.       OnKeyPress = DBGrid1KeyPress
  120.     end
  121.     object BitBtn1: TBitBtn
  122.       Left = 465
  123.       Top = 283
  124.       Width = 75
  125.       Height = 27
  126.       Caption = 'Aktar'
  127.       Font.Color = clNavy
  128.       Font.Height = -12
  129.       Font.Name = 'Arial'
  130.       Font.Style = [fsBold]
  131.       ModalResult = 1
  132.       ParentFont = False
  133.       TabOrder = 2
  134.       OnClick = BitBtn1Click
  135.       Glyph.Data = {
  136.         76010000424D7601000000000000760000002800000020000000100000000100
  137.         04000000000000010000130B0000130B00000000000000000000000000000000
  138.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  139.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
  140.         333333333333337FF3333333333333903333333333333377FF33333333333399
  141.         03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
  142.         99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
  143.         99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
  144.         03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
  145.         33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
  146.         33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
  147.         3333777777333333333333333333333333333333333333333333}
  148.       NumGlyphs = 2
  149.     end
  150.     object BitBtn2: TBitBtn
  151.       Left = 552
  152.       Top = 283
  153.       Width = 75
  154.       Height = 27
  155.       Caption = 'Vazge∩┐╜'
  156.       Font.Color = clNavy
  157.       Font.Height = -12
  158.       Font.Name = 'Arial'
  159.       Font.Style = [fsBold]
  160.       ParentFont = False
  161.       TabOrder = 3
  162.       Kind = bkCancel
  163.     end
  164.     object BtnFIYDEG: TBitBtn
  165.       Left = 253
  166.       Top = 283
  167.       Width = 198
  168.       Height = 27
  169.       Caption = 'Fiyat / Sipari∩┐╜ Miktar∩┐╜ De∩┐╜i∩┐╜tir'
  170.       Font.Color = clNavy
  171.       Font.Height = -12
  172.       Font.Name = 'Arial'
  173.       Font.Style = [fsBold]
  174.       ParentFont = False
  175.       TabOrder = 1
  176.       OnClick = BtnFIYDEGClick
  177.       Glyph.Data = {
  178.         90010000424D9001000000000000760000002800000020000000100000000100
  179.         0400000000000001000000000000000000000000000000000000000000000000
  180.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  181.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  182.         5555555555555555555555500000000005555555555555555555555022222222
  183.         05555555555555555555555022222222055555555555555555555550222FF222
  184.         05B555555555555555555550222FF2220B3B55555555555555555B5502222220
  185.         5B3B5555555555555555B3B50222222055B55555555555555555B3B502222220
  186.         555555555555555555555B55022FF22055B555555555555555555550222FF222
  187.         0B3B55555555555555555550222222220B3B5555555555555555555022222222
  188.         05B5555555555555555555B0000000000555555555555555555555B3B5555555
  189.         55555555555555555555555B5555555555555555555555555555000000000000
  190.         0000000000000000000000000000000000000000}
  191.       NumGlyphs = 2
  192.     end
  193.     object DBRadioGrIS: TDBRadioGroup
  194.       Left = 363
  195.       Top = 33
  196.       Width = 193
  197.       Height = 167
  198.       HelpContext = 134
  199.       Caption = '∩┐╜skonto Tipi'
  200.       Color = clNavy
  201.       Ctl3D = True
  202.       DataField = 'TIPISKON'
  203.       DataSource = DataSource1
  204.       Font.Color = clWhite
  205.       Font.Height = -11
  206.       Font.Name = 'Arial'
  207.       Font.Style = [fsBold]
  208.       Items.Strings = (
  209.         '&1.Sabit Depo ∩┐╜sk.lu'
  210.         '&2.∩┐╜skontosuz'
  211.         '&3.Depocu Fiyatl∩┐╜ Sbt.Dp.∩┐╜sk.lu'
  212.         '&4.Depocu Fiyatl∩┐╜ ∩┐╜sk.suz'
  213.         '&5.Di∩┐╜er(KDVsiz) ∩┐╜sk.suz'
  214.         '&6.Farkl∩┐╜ ∩┐╜skontolu'
  215.         '&7.Depocu Fyt.l∩┐╜ Farkl∩┐╜ ∩┐╜sk.lu'
  216.         '&8.Di∩┐╜er(KDVsiz) Sbt.Dp. ∩┐╜sk.lu'
  217.         '&9.Di∩┐╜er(KDVsiz) Farkl∩┐╜ ∩┐╜sk.lu')
  218.       ParentColor = False
  219.       ParentCtl3D = False
  220.       ParentFont = False
  221.       TabOrder = 4
  222.       Values.Strings = (
  223.         '0'
  224.         '1'
  225.         '2'
  226.         '3'
  227.         '4'
  228.         '5'
  229.         '6'
  230.         '7'
  231.         '8')
  232.       Visible = False
  233.       OnExit = DBRadioGrISExit
  234.     end
  235.     object DBRadioGrMKDV: TDBRadioGroup
  236.       Left = 515
  237.       Top = 45
  238.       Width = 116
  239.       Height = 70
  240.       Caption = 'M.Fzl.KDV yi Ekle?'
  241.       Color = clNavy
  242.       DataField = 'MKDVARMI'
  243.       DataSource = DataSource1
  244.       Font.Color = clWhite
  245.       Font.Height = -11
  246.       Font.Name = 'Arial'
  247.       Font.Style = [fsBold]
  248.       Items.Strings = (
  249.         '&Evet ,∩┐╜d∩┐╜yoruz.'
  250.         '&Hay∩┐╜r')
  251.       ParentColor = False
  252.       ParentFont = False
  253.       TabOrder = 5
  254.       Values.Strings = (
  255.         'E'
  256.         'H')
  257.       Visible = False
  258.       OnExit = DBRadioGrMKDVExit
  259.     end
  260.   end
  261.   object DataSource1: TDataSource
  262.     DataSet = SipAkTab
  263.     OnStateChange = DataSource1StateChange
  264.     Left = 479
  265.     Top = 253
  266.   end
  267.   object SipAkTab: TTable
  268.     AfterInsert = SipAkTabAfterInsert
  269.     BeforePost = SipAkTabBeforePost
  270.     DatabaseName = 'ECZ'
  271.     IndexName = 'IAD'
  272.     TableName = 'siplist.db'
  273.     Left = 448
  274.     Top = 245
  275.     object SipAkTabILACNO: TIntegerField
  276.       FieldName = 'ILACNO'
  277.       Visible = False
  278.     end
  279.     object SipAkTabILACAD: TStringField
  280.       DisplayLabel = '∩┐╜r∩┐╜n Ad∩┐╜'
  281.       DisplayWidth = 31
  282.       FieldName = 'ILACAD'
  283.       ReadOnly = True
  284.       Size = 36
  285.     end
  286.     object SipAkTabFIYATARIH: TDateField
  287.       DisplayLabel = 'Fyt.Trh.'
  288.       DisplayWidth = 8
  289.       FieldName = 'FIYATARIH'
  290.       ReadOnly = True
  291.       Visible = False
  292.       DisplayFormat = 'dd.mm.yy'
  293.     end
  294.     object SipAkTabSIPTARIH: TDateField
  295.       DisplayLabel = 'Sip.Trh.'
  296.       DisplayWidth = 8
  297.       FieldName = 'SIPTARIH'
  298.       DisplayFormat = 'dd/mm/yy'
  299.     end
  300.     object SipAkTabFIYAT: TCurrencyField
  301.       DisplayLabel = 'Fiyat∩┐╜'
  302.       DisplayWidth = 11
  303.       FieldName = 'FIYAT'
  304.       ReadOnly = True
  305.       DisplayFormat = '0,0'
  306.     end
  307.     object SipAkTabSIPARIS: TIntegerField
  308.       DisplayLabel = 'Sip'
  309.       DisplayWidth = 3
  310.       FieldName = 'SIPARIS'
  311.     end
  312.     object SipAkTabFIYAT_1: TCurrencyField
  313.       DisplayLabel = 'Tutar∩┐╜'
  314.       DisplayWidth = 12
  315.       FieldName = 'FIYAT_1'
  316.       ReadOnly = True
  317.       DisplayFormat = '0,0'
  318.     end
  319.     object SipAkTabKDV: TFloatField
  320.       FieldName = 'KDV'
  321.       Visible = False
  322.     end
  323.     object SipAkTabMIKTAR: TIntegerField
  324.       DisplayLabel = 'Mik'
  325.       DisplayWidth = 3
  326.       FieldName = 'MIKTAR'
  327.       ReadOnly = True
  328.     end
  329.     object SipAkTabRECETEKOD: TStringField
  330.       FieldName = 'RECETEKOD'
  331.       Visible = False
  332.       Size = 1
  333.     end
  334.     object SipAkTabMALFAZLA: TSmallintField
  335.       DisplayLabel = 'MF'
  336.       DisplayWidth = 2
  337.       FieldName = 'MALFAZLA'
  338.     end
  339.     object SipAkTabAKTARMA: TStringField
  340.       DisplayLabel = 'Aktar'
  341.       FieldName = 'AKTARMA'
  342.       Size = 1
  343.     end
  344.     object SipAkTabTIPISKON: TStringField
  345.       DisplayLabel = '∩┐╜s.Tip'
  346.       FieldName = 'TIPISKON'
  347.       OnGetText = SipAkTabTIPISKONGetText
  348.       Size = 1
  349.     end
  350.     object SipAkTabMKDVARMI: TStringField
  351.       DisplayLabel = 'Mkdv'
  352.       FieldName = 'MKDVARMI'
  353.       Size = 1
  354.     end
  355.     object SipAkTabM_ISKONTO: TFloatField
  356.       DisplayLabel = '%F.∩┐╜s'
  357.       DisplayWidth = 4
  358.       FieldName = 'M_ISKONTO'
  359.       MaxValue = 99.900000000000010000
  360.     end
  361.   end
  362.   object QAkSil: TQuery
  363.     DatabaseName = 'ECZ'
  364.     SQL.Strings = (
  365.       'DELETE FROM SIPLIST'
  366.       'WHERE (AKTARMA='#39'E'#39') OR (AKTARMA IS NULL)'
  367.       '')
  368.     Left = 304
  369.     Top = 256
  370.   end
  371. end
  372.